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FORTRAN op de CYBER. 


I Inleiding 


Het verwerken van FORTRAN-programma's op de CYBER wordt 
geregeld met stuurkaarten. Op die stuurkaarten kan men 
met behulp van parameters aangeven welke opdrachten de 
computer moet uitvoeren. Bij de behandeling van deze 
stuurkaarten zullen veelvuldig begrippen en namen ge= 
bruikt worden, waarvan we er hier een aantal zullen 
introduceren. Bekendheid met deze begrippen vergemakke=- 
lijkt bovendien het lezen van de CD manuals. 


De begrippen record en file worden besproken in de 
ACCU-MAP bulletin nr. 2 : "De samenstelling van het 
kaartenpakket voor de CYBER". Hierin staat ook beschre- 
ven hoe een job voor de CYBER in elkaar zit. 


Een FORTRAN-programma moet door de compiler omgezet Ey 
(vertaald) worden in voor de machine begrijpbare in- 
structies (object deck). De compiler is reeds in de 
machine aanwezig en wordt opgeroepen met een stuurkaart. 
Het FORTRAN-programma, dat als invoer voor de compiler 


„dient, noemt men wel source deck. 


De compiler vertaalt iedere programma-eenheid (routine), 
zoals hoofdprogramma, subroutine of functie, af zonder- 
lijk, zonder de onderlinge betrekkingen in ogenschouw 
te nemen. De compiler maakt bij iedere routine een 

lijst aan, waarin hij o.a. de variabelen en de labels 
bijhoudt, die in die routine worden gebruikt en boven- 
dien de subroutines en functies (externals) vermeldt, 
die in de betreffende routine worden aangeroepen. Deze 
lijst (reference map) kan op verzoek (zie II.1) afge- 


drukt worden. …À 
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Als het programma verwerkt (in executie gebracht) moet 
worden, moeten de onderlinge verbindingen tussen de 
diverse programmadelen dus nog gelegd worden en boven- 
dien de nodige systeemroutines opgehaald worden. Dit 


alles doet de loader. 


In hoofdstuk II wordt de PROGRAM-kaart voor de CYBER 
besproken. Dit is de eerste kaart van het hoofdprogramma 
en is in het algemeen niet hetzelfde op machines van 


verschillend fabrikaat. 


Hoofdstuk III is gewijd aan de belangrijkste van de 
twee FORTRAN-compilers, die op het ogenblik op de CYBER 
aanwezig zijn (FIN), terwijl in hoofdstuk IV de RUN- 
compiler behandeld wordt. Aangezien de FTN-compiler 
veel meer mogelijkheden biedt en RUN waarschijnlijk 
binnenkort verdwijnt, wordt men aangeraden nieuwe pro- 


gramma's via FTN te verwerken. 


De beginnende FORTRAN-programmeur kan dan ook volstaan 
met de hoofdstukken I, II -en III. 


In hoofdstuk V worden enkele geavanceerde manipulaties 
beschreven, die alleen voor zeer grote programma's van 


belang zijn. 


Indien men te kampen krijgt-met moeilijk op te sporen 
fouten kunnen de DEBUG-mogelijkheden van FTN. (ACCU-MAP: 
"Het opsporen van fouten onder FTN : DEBUG") misschien 


uitkomst bieden. 
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IT De PROGRAM-kaart 


Op de eerste kaart van het hoofdprogramma moeten de files, 
waarop data staan, die gedurende de executie gelezen 
worden, en de files waarnaar output geschreven wordt, 
aangegeven worden. Deze eerste kaart, ook wel PROGRAM- 
kaart genoemd, begint vanaf kolom 7 met het woord PROGRAM. 
Daarna volgt een identifier die de naam van het programma 
aangeeft en verder tussen haakjes de omschrijving van de 


files. 


Indien men alleen datakaarten leest, die een "record! 
vormen direct na het programma, en men wil de resultaten 
afgedrukt hebben via de regeldrukker, moet men de files 
INPUT (Uw kaartenpakket) en OUTPUT (de file, die geprint 
wordt) aangeven. 


Als men leest met READ zonder unitnummer (READ formatnr, 
s…….) en print met PRINT kan men volstaan met: 


PROGRAMnaam ( INPUT „OUTPUT ) 


Gebruikt men daarentegen de READ met unitnummer 
(READ(unitnr,formatnr)....) en print men met 
(WRITElunitnr,formatnr)....) dan moet men aangeven welke unit 
met INPUT correspondeert en,‚welke met OUTRUT. 


Men moet daarbij bedenken dat het systeem ervan uit gaat 
dat bij unit n een filenaam TAPEn hoort: (en niets anders). 
Gebruikt men b.v. unit 5 voor input en unit 6 voor output 
(IBM standaard) dan moet de PROGRAM-kaart er als volgt 


uitzien: 


PROGRAMnaam( INPUT ,TAPES5= INPUT , OUTPUT ,TAPE6 = OUTPUT) 
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III FORTRAN EXTENDED (FTN) 


III.1 Stuurkaarten 


De FORTRAN EXTENDED compiler wordt aangeroepen met de 


stuurkaart: 
BON Pe Psor sil: 
De parameters Pp; mogen in willekeurige volgorde voorkomen. 
De eenvoudigste vorm van deze stuurkaart is: 
FIN, 
Het programma wordt dan vertaald volgens standaard voor- 


schriften. 


We zullen hier enkele parameters behandelen. Een volledig 
overzicht staat in het FORTRAN EXTENDED Reference Manual, 


par. I-11. 


In de onderstaande beschrijving staat lfn ("logical file 
name") voor de naam van een file. Deze naam moet beginnen 
met een letter en mag maximaal uit 7 letters en of 
cijfers bestaan. 
parameter …« beschrijving * 

I=lfn lfn is de naam van de file, waar de input 
voor de compiler (zhet programma) zich be- 
vindt. 

Bij ontbreken van deze parameter wordt INPUT 
verondersteld. INPUT is de file, waarop de 
kaarten komen te staan als ze op de normale 


wijze ingelezen worden. 
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B=lfn lfn is de naam van de file, waarop het ver- 
taalde programma (= het object deck) wordt 
geschreven. Bij ontbreken wordt LGO aange- 
nomen. 

Door de stuurkaart lfn. (standaard LGO.) 
wordt het vertaalde programma geladen en in 


executie gebracht. 


ed B=0 Er wordt geen file’ aangemaakt van het object 
deck. 


L=lfn lfn is de naam van de file, waarop de compiler 
de listing en eventuele (fout-)meldingen 
schrijft. Bij ontbreken van deze parameter 
wordt OUTPUT verondersteld. OUTPUT is de file, 
die normaal geprint wordt. | 


L=0 Alleen de "fatale!" fouten en de statements, 


waarin ze voorkomen worden afgedrukt. 


R=i 1=0 : geen reference map (zie inleiding) 

i=1 : eenvoudige map; een lijst van variabelen, 
adressen en eigenschappen. 

i=2 : uitgebreide reference map; lijst van vartabe- 
len, adressenz=en eigenschappen en bovendien 
een opgave van de regels, waar de variabelen 
gebruikt worden en een overzicht van de DO- 
loops. 

1=3 & gelijk aan i=2, uitgebreid met een overzicht 
van de variabelen in de COMMON-blokken en 
EQUIVALENCE-statements. 


Bij ontbreken wordt R=1 aangenomen. 
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OPT =m 


D=lfn 


Met deze parameter kan de compiler verzocht 
worden een meer of minder "OPTimaal'" vertaald 
programma af te leveren. 

snelle compilatie; er worden controles inge- 
bouwd om tijdens de executie te testen of de 
argumenten van de standaardfuncties binnen 
hun toegestane gebied liggen. De executie 

zal relatief traag zijn. Deze waarde van m is 
zeer geschikt voor testdoeleinden. 

standaard vertaling en executie. Tijdens 
executie zullen de argumenten van standaard- 
functies niet getest worden. 

een relatief langzame vertaling, omdat de 
compiler optimaliseert in die zin, dat b.v. 
DO-loops tijdens executie op de meest voor- 
delige (= minst tijdrovende) manier uitge- 
voerd worden. 


Bij ontbreken van deze parameter wordt OPT=1 


aangehouden. - 


n is het maximale aantal records (regels), 
dat het programma gedurende executie mag 
schrijven op de file OUTPUT. n is een deci- 
maal getal. Eyentuele listing van het pro- 
gramma is niet in deze n begrepen. 

Bij ontbreken van deze parameter wordt 


n=5000j0 verondersteld. 


lfn is de naam van de file, waarop de stu- 
ringen voor de DEBUG-mode staan. Zie ACCU- 
map: "Het opsporen van fouten onder FEN :. 
DEBUG". | 
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De stuurkaart, die overeenkomt met de door de machine 
aangenomen standaardwaarden ("default") ziet er als 
volgt uit: 

FTN,I=INPUT,B=LGO,L=OUTPUT ‚R=1,OPT=1,PL=5000. 

Als we deze defaultwaardern gebruiken, behoeven we al 


deze parameters niet expliciet aan te geven. De volgende 


stuurkaart is dan voldoende: 


FTN. 


Voorbeelden 


We willen een programma vertalen en een listing van het 


programma verkrijgen. De job ziet er als volgt uit: 


Jobkaart 
FTN. 
7 


8 
9 


programma 


Indien dit programma ook nog in executie gebracht moet 


worden, krijgt de job de volgende gedaante: 


Jobkaart 
FIN, 
LGO. 
7 
8 
9 


Programma 


data 
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Als we het programma willen vertalen zonder tekst kan dat 


met de stuurkaart: 

FIN,L=0. 
Als de input voor de compiler bijv. op de file COMPILE 
staat i.p.v. op de file INPUT, dan ziet de FTN-stuur- 


kaart er als volgt uit: 
FTN ,I=COMPILE. 


Tenslotte nog een voorbeeld van een FTN-stuurkaart, waar= 
bij we een uitgebreide reference map,het object-deck op 

de file JAN en OPT=2 willen hebben en vervolgens het pro- 
gramma willen laten uitvoeren, maar maximaal 9010 regels 


op de file OUTPUT toestaan: 
FTN‚,R=3,B=JAN,OPT=2,PL=904 


Andere voorbeelden staan in het FORTRAN EXTENDED Reference 
Manual, par. I-11. 


De door de compiler ontdekte fouten, worden vermeld op 
een aparte pagina direct na de listing van de routine; 
waarin een fout geconstateerd is. | 
Daarbij wordt aangegeven of de fout fataal is, d.w.z. 
zo ernstig, dat het programma niet in executie gebracht 
kan worden. | 


Op de volgende pagina staat een voorbeeld, met de fout- 


meldingen die’de compiler geeft. 
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De gedaante van de foutmelding is dus: 


CARDNO. SEVERITY DIAGNOSTIC 
n e a error message 
n : het nummer van de kaart, waarop de fout 


gevonden is. 
e … het type fout 

I (“Informative") Waarschuwing voor 
de programmeur, dat er een onlogische 
stap in het programma zit. 

Een programma met alleen fouten van 
dit type kan wel in executie gebracht 
worden. 

FE (“Fatal Error), de geconstateerde 
fout is dermate ernstig, dat het pro- 
gramma niet in executie gebracht kan 
worden. 

a : de informatie, die hier gegeven wordt, is 
afhankelijk van de geconstateerde fout. 

In het voorbeeld wordt aangegeven welke 

lopende variabele van de DO-loop veran=- 

dert (resp. I, N, N, N). 

error message : omschrijving van de geconstateerde fout. 


Een uitgebreide foutenlijst staat in het FORTRAN EXTENDED 


Reference Manual, par. III=2. 


Ook in de DAYFILE (de gegevens over de verwerking van de 
job, die de output afsluit) wordt aangegeven in welke 


routines Fortran-fouten zijn gesignaleerd. 


Indien er bij het laden fouten worden geconstateerd (bijv. 


als er geprobeerd wordt een routine te laden, waarin 
fatale Fortran-fouten voorkomen) verschijnt in de DAYFILE 
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de melding: 
FATAL LOADER ERROR - SEE MAP, 


Ook fouten, die gedurende de executie optreden worden 
vermeld in de DAYFILE. 


Een voorbeeld hiervan is:- 
ERROR MODE=n. ADDRESS a. 


Oorzaken van zo'n foutmelding kunnen zijn: 
het aanroepen van een routine, die niet geladen is, 
de waarde van n is dan 1. In de loading-map komt 
dan een "unsatisfied external" voor. 
het evalueren van een expressie, waarbij tenminste 
een operand oneindig is, de waarde van n is dan 2. 
het evalueren van een expressie, waarbij tenminste 
een operand niet gedefiniëerd is (bijv. 0.0/0.0);, 
de waarde van n is dan h. 


Waar de fout geconstateerd is, is te bepalen via het op= 
gegeven adres a. 
Uitgebreide informatie over dit type foutmeldingen staat 


in de ACCU-map bulletin nr. 8. 


Een ander voorbeeld van een executie-fout: 
TIME LIMIT re 


Dit houdt in, dat de in de jobkaart opgegeven CPU-tijd 
(oktaal !) verbruikt is, voordat de job beëindigd is. 

In een aantal gevallen heeft het geen zin de T-parameter 
dan maar te verhogen, omdat TIME LIMIT soms het gevolg 

is van een niet gesignaleerde fout, zoals het overschrijden 
van een array-grens waardoor een gedeelte van het object- 


deck overschreven is. 
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Uitgebreide informatie staat in de ACCU-map bulletin 


nr. 8. 


De foutmelding in de DAYFILE: 
FTN-FATAL ERROR n 


verwijst naar een foutnummer n. 
De omschrijving van deze fout treft men aan bij de output. 


III.3 Standaardfuncties 


a nn ne a en ee 


In FORTRAN zijn een groot aantal standaardfuncties be- 
schikbaar. Een lijst hiervan vindt men in de FORTRAN- 
cursus en in het FORTRAN EXTENDED Reference Manual, 

par. 1-8. Hierbij dient opgemerkt te worden dat er ook 
een groot aantal double precision functies aanwezig zijn, 
die in de FORTRAN-cursus niet genoemd worden. 


Hieronder volgen een aantal functies en subroutines, die 
op de CYBER ook aanwezig zijn, hoewel ze niet behoren 


tot het Standaard Fortran. 


Afkortingen: i: integer 
r: real 
dp: double precision 


e: complex 


AANTAL TEPE TXPB 
NAAM DEFINITIE ARGUMENTEN ARGUMENTEN FUNCTIE 
AND logisch product > 2 elk ee 
OR logische som > 2 elk. Kd 
XOR exclusïeve of > 2 elk 5 
COMPL complement dl elk - 
SHIFT shift 2 elk,i = 
MASK maken van een 1 dee _ 


masker 
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Ook de volgende functies en routines zijn aanwezig: 


EOF (u) 


RANSET (y ) 


RANF (x) 


RANGET (y) 


DATE(a) 


SECOND(t) 


EXIT 


„ testen op end-of-file op unit u. 
0: 
ongelijk O0: wel end-of-file tegengekomen. 


geen end-of=-file tegengekomen. 


(SUBROUTINE) y:wordt getransformeerd naar een 
getal tussen 0 en 1. Initialisatie van random- 


generator. 


(FUNCTION) x is een dummy argument. De functie- 
waarde levert een random-getal tussen O0 en 1. 


(SUBROUTINE) y krijgt de waarde van het laatste 


random-getal. 


(SUBROUTINE en FUNCTION) 
De dag van het jaar in de vorm bDD/MM/JJb 
Voorbeeld: op 9 februari 1973 

CALL DATE (TODAY) 


of TODAY =DATE(A) 
PRINT 100,TODAY 
100 FORMAT(1H,A10) 
geprint wordt: b09/02/73b 


(SUBROUTINE en FUNCTION) 

De central processor tijd vanaf het begin van 
de job in seconden. De variabele t moet reëel 
zijn. Hoewel de tijd opgegeven wordt tot in 
duizendsten van seconden, wil dat niet zeggen, 
dat men tijdsverschillen van die grootte kan 
meten. De tijd wordt bijgehouden met "sprongen" 


van enkele honderdsten van seconden., 


(SUBROUTINE) 
De executie wordt beëindigd. 
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IV RUN 


IV.1 Verschillen tussen FTN- en RUN. 


Naast de FTN-compiler is er op het ogenblik op de Cyber 
nog een tweede Fortran-compiler aanwezig: de RUN-compiler. 
RUN is de oudste Fortran-compiler op de CD-machines, en 
is tot nog toe naast de FTN-compiler blijven bestaan, 
omdat deze laatste in het begin nog enige kinderziektes 
vertoonde. 

Nu echter is de FTN-compiler al zo goed en biedt boven- 
dien zoveel extra mogelijkheden dat de RUN-compiler 
binnenkort wel van het toneel zal verdwijnen. Om reden 
van volledigheid zal in dit hoofdstuk de RUN-compiler 
toch nog behandeld worden. Ì 

Naast het feit dat de FTN-compiler een aantal extra 
faciliteiten biedt, is er een markant verschil in het 
doorgeven van actuele parameters bij de aanroep van 
functies en subroutines. Het is daardooor niet mogelijk 
een aantal routines, die met de ene compiler vertaald 
zijn, te koppelen aan routines, die via de andere com- 
piler verwerkt zijn. Men moet dus ook bij het gebruik 
van een Library (= verzameling reeds vertaalde routines) 
goed in de gaten houden dat men dié library gebruikt, 
die overeenkomt met de compiler waarmee de rest van het 
programma vertaald wordt. Zo moet men bij het gebruik 


van de Mathematical Science Library bij FTN gebruiken: 
LIBRARY „MATHFTN. 
en bij RUN: 


LIBRARY , MATHRUN. 
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Het zal dus over het algemeen ook niet mogelijk zijn om 
programma's, waarin routines in COMPASS geschreven zijn 
zonder meer via de andere compiler te verwerken. 

Een ander verschil treedt op bij de aanroep van standaard- 
functies. Onder RUN wordt getest of het argument binnen 

de toegestane grenzen ligt. Bij FTN gebeurt dat alleen 

als onder OPT=0 gewerkt wordt en niet bij OPT=1 (default!) 
en OPT=2. 


Daar de RUN-compiler dus waarschijnlijk binnenkort niet 
meer in het officiële CD-programmapakket aanwezig zal 
zijn, wordt men aangeraden nieuwe programma's via FTN 

te verwerken. 

Oude programma's, die tot nu toe onder RUN verwerkt zijn, 
kunnen over het algemeen zonder grote wijzigingen ook 

via FTN verwerkt worden. Er zijn echter enkele statements, 
die onder FIN een iets andere vorm hebben (bijv. test op 
end-of-file via EOF). 


IV.2 Stuurkaarten 


De RUN-compiler wordt aangeroepen met de stuurkaart: 
RUN,em,f l,bl,if sof ‚rf ‚lc,as,cs. 


De volgorde van de parameters op deze stuurkaart is vast ! 
D.w.z. als niet de eerste maar bijv. de vierde parameter 
ongelijk aan de defaultwaarde is, moet door het juiste 
aantal komma's de juiste plaats van die parameter aange- 
geven worden. 


De eenvoudigste vorm is: 
RUN,S. 


Het programma wordt dan vertaald volgens standaardvoor- 


schriften. 


oen ed 
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FORTRAN op de CYBER. 


We zullen hier enkele parameters behandelen. Een volledig 


overzicht staat in het FORTRAN Reference Manual par. F. 





em : de compiler mode optie 
De belangrijkste zijn: 
G: vertaling + executie; geen tekst tenzij er LIST- 
kaarten in het source deck aanwezig zijn (IV.u). 
3: vertaling met tekst van het programma, geen 
executie. 
Indien de em-parameter ontbreekt, wordt G veronder- 


steld. 


fl : de geheugenruimtebezetting, deze parameter is alleen 
voor comptabiliteit. 
Tegenwoordig wordt automatisch voldoende ruimte ge- 


reserveerd om het programma uit te voeren. 


bl : Input/Output bufferlengte. De defaultwaarde is in 


praktisch alle gevallen voldoende. 


if : naam van de file waarop de input (= het programma) 
voor de compiler staat. 
Bij ontbreken van deze parameter wordt INPUT ver- 


ondersteld. 


of : naam van de file, waarop de compiler zijn eventuele 
listing en (fout-)meldingen schrijft. 
Bij ontbreken van deze parameter wordt OUTPUT aan- 


genomen. 


rf : naam van de file, waarop het vertaalde programma 
wordt geschreven. 


Indien niet gespecificeerd wordt LGO aangenomen. 


le : aantal (oktaal) regels, dat door het programma 


tijdens executie maximaal geproduceerd mag worden 


» 
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op de file OUTPUT. De eventuele listing van het pro- 
gramma telt niet mee bij deze lc. Bij overschrijding 
van dit aantal wordt de executie beëindigd. 

Indien le niet gespecificeerd wordt, is de default- 
waarde: 100008=4096. 


as : “ANSI switch" Deze parameter is alleen van belang 


bij ingewikkelde I/O manipulaties. 


es : reference map (zie inleiding). Indien deze para- 
meter aanwezig is, wordt een uitgebreide reference 
map geproduceerd met opgave van de regels, waar de 
variabelen en de statementnummers gebruikt worden. 


De stuurkaart, die overeenkomt met de door de machine 


aangenomen standaardwaarden, ziet er als volgt uit: 
RUN ,G, , , INPUT , OUTPUT ,LGO „10000, ‚. 


De 9 parameters hebben een vaste volgorde; ze zijn posi- 
tiegebonden. Als we de defaultwaarden willen gebruiken 
hoeven we ze niet expliciet aan te geven. De boven- 


staande stuurkaart is equivalent met: 
RUN. 5 
Let wel, dat dit inhoudt, dat het programma vertaald , 
wordt (zonder listing) en geëxecuteerd ! 
Aan de hand van een paar voorbeelden zullen we zien; 
hoe we van deze defaultwaarden kunnen afwijken. 


We willen een programma vertalen en een listing van het 


programma verkrijgen, de job ziet er als volgt uit: 
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Jobkaart 
RUN,S. 
ë j 


8 
9 


programma 


Indien het programma ook in executie gebracht moet worden, 


krijgt de job de volgende gedaante: 


Jobkaart 


LGO. 


7 
8 
9 


programma 


data 


Als we het programma willen vertalen, zonder tekst, en 


uitvoeren, ziet het stuurkaartenrecord er als volgt uit: 


Jobkaart.- 


RUN. 


7 
8 
9 


en 
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Let erop, dat in dit geval geen LGO-stuurkaart meer ge- 
bruikt mag worden, want dit zou tot gevolg hebben, dat 
het programma nog een tweede keer in executie gebracht 


zou worden. 


Als de input voor de compiler bijv. op de file COMPILE 
staat i.p.v. op de file INPUT, dan ziet de RUN-stuur- 


kaart er als volgt uit: 
RUN 5 4 nae EB 


Dus door het juiste aantal komma's te geven, kan de 
parameter op de vierde plaats van default gewijzigd 


worden. 


Tenslotte nog een voorbeeld van een RUN-kaart, waarbij 
we een limiet (bijv. 10010) willen opgeven voor het 
aantal regels, dat tijdens executie op de file OUTPUT 


geschreven mag worden: 
RUN,;S;ssss sihh. 


Andere voorbeelden staan in de appendix F van het 


FORTRAN Reference Manual. 


mn ee a a « 


De door de compiler ontdekte fouten worden vermeld direct 
na de statement waarin de fout is geconstateerd. Dit ge- 
beurt in de vorm van een aantal sterretjes gevolgd door 

2 of 3 letters en daarna weer sterretjes. De betekenis 


van de eerste 2 letters komt na het eind van de routine. 
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Behalve met de cm parameter in de RUN-stuurkaart kunnen 
we bij de RUN-compiler nog op een tweede manier het af- 
drukken van de programmatekst regelen. Dit kan met LIST- 
en NOLIST-kaarten tussen de routines. De tekst LIST en 
NOLIST mag vanaf kolom 7 geponst worden en de kaarten 
moeten direct voor de beginkaart (PROGRAM, SUBROUTINE, 
FUNCTION) van een routine worden geplaatst. De LIST- 
kaart heeft tot gevolg dat, ongeacht de cm parameter, 

de tekst van het programma wordt afgedrukt. Dit geldt 
tot er een NOLIST-kaart verschijnt. De NOLIST-kaart 
onderdrukt de tekst, indien er geen vertaalfouten op- 
treden,en blijft actief totdat een LIST-kaart ze onge- 
daan maakt. 8 

Opmerking: De LIST- en NOLIST-kaarten moeten verwijderd 
worden als het programma aan de FTN-compiler wordt aange- 


boden. 


IV.5 Standaardfuncties 


De standaardfuncties die U onder RUN kunt gebruiken 
treft U aan in appendix C van het FORTRAN Reference 


Manual. 
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Vv Bijzondere manipulaties met vertaalde programma's 


In de voorbeelden, die tot nu toe ter sprake zijn ge- 
komen is steeds het gehele programma eerst vertaald en 
daarna in executie gebracht. Voor grote programma's, 
waarin nog slechts aan een of twee routines gesleuteld 
wordt terwijl de rest ongewijzigd blijft, loont het vaak 
de moeite, om deze "rest" in vertaalde vorm (object deck) 
mee te nemen. 

Dit object deck kan in de vorm van een permanent file 
aanwezig zijn (voorbeeld 5.1) of als een "binair" kaar- 
tendeck (voorbeeld 5.2). Zo'n binair kaartendeck kan 
niet via een terminal ingelezen worden. 

Vervolgens geven we een voorbeeld, waarbij de filenamen, 
vastgelegd in de PROGRAM-kaart , via de stuurkaart, die 
opdracht geeft het programma uit te voeren (LGO.), ge- 
wijzigd worden (voorbeeld 5.3). 

Tot slot wordt er een oplossing gegeven voor het geval, 
dat een groot programma vaak in executie gebracht moet 


worden met steeds verschillende data (voorbeeld 5.4). 


Voorbeeld 5-1 Met gebruik van Permanent Files 

(zie ACCU-map: "Permanent Files"). 
In het hoofdprogramma worden nog wijzigingen aangebracht 
terwijl de subroutines en functies al goed zijn. Het 
object deek van het correcte deel schrijven we weg op 


een permanent file: 


Jobkaart - 

REQUEST „AAA ,„#PF. 

FTN,B=AAA,L=0. 

CATALOG „AAA ,ACCU,ID=UTRECHT ,CY=1. 
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FIN. | 
LOAD „AAA ,LGO. 
EXECUTE ‚MAIN. 
7 


8 
9 


subroutines 


PROGRAM MAIN 


data 


Toelichting: 

De eerste aanroep van de FITN-compiler heeft tot gevolg, 
dat het eerste record na de stuurkaarten, dus de sub- 
routines, vertaald worden, zonder listing. 

De vertaalde versie komt op de file AAA te staan. Deze 
wordt daarna gecatalogiseerd zodat ook volgende jobs 
hierover kunnen beschikken. 

Vervolgens wordt het hoofdprogramma met de naam MAIN 
vertaald en dit object deck komt op de file LGO. 

De loadopdracht: 


LOAD ,AAA ,LGO.. 


legt dan de verbindingen en brengt het gehele programma 


in het centrale geheugen. 
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De EXECUTE-kaart start de verwerking en wel met het 
hoofdprogramma MAIN. 
Opmerking 
De LOAD-kaart mag alleen voorkomen in een "load-sequence"', 
d.w.z. in een serie van load-opdrachten afgesloten met 
een EXECUTE- of NOGO-kaart. 
ied Is er iets in het hoofdprogramma gewijzigd en moet het 
programma weer verwerkt worden, dan kan de job er als 
volgt uitzien: 
Jobkaart 
ATTACH,BBB,ACCU,ID=UTRECHT ,CY=1. 
FIN. 
LOAD ,BBB ,LGO. 
EXECUTE ‚MAIN. 
7 
8 
9 
: PROGRAM MAIN( ) 
7 
8 
9 
bad 
data = 
6 
7 
8 
9 
Hier wordt het object deck van de subroutines via de 
“logical file" BBB opgehaald en later samen met het ver- 
taalde hoofdprogramma geladen en in executie gebracht. 
Kz 
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Voorbeeld 5.2 Met gebruik van een binair deck. 


We hebben ‘hetzelfde. probleem als in voorbeeld 1, maar 
we willen nu het object deek van de subroutines laten 
uitponsen op kaarten en iedere volgende keer weer in- 
lezen. 


De job ziet er als volgt uit: 


Jobkaart 
FIN ,B=PUNCHB,L=0. 
7 


8 
9 


routines 


6 
7 
8 
9 


Ks 


De kaarten die uitgeponst worden vormen het binaire deck, 
het wordt voorafgegaan door een kaart met de jobnaam en 
afgesloten met een EOR-kaart, die in de kolommen 2 en 3 
het getal 17 bevat en een EOF-kaart. Iedere vertaalde 
routine wordt in het binaire deck afgesloten met een 
EOR-kaart. 


Als de volgende keer deze routines gebruikt moeten worden 
bij het hoofdprogramma MAIN kan de job er als volgt uit- 


â 


zien: 


Jobkaart 

FIN. 

LOAD , INPUT ,LGO. 
EXECUTE „MAIN. 

7 


8 
9 


PROGRAM MAIN( ) 
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binaire deck. 


data 


Het is noodzakelijk het binaire deck af te sluiten met 

een extra EOR-kaart. De LOADER signaleert dan een "leeg" 
record (de laatste kaart van het binaire deck is ook een 
EOR-kaart) en beschouwt dat als einde van het binaire deck. 


Voorbeeld 5.3 


Soms wil men graag bij het laden van het programma de 
filenamen uit de programmakaart veranderen. 

Dat kan geschieden via de LGO-kaart. 

Tot nu toe heeft het programma PROG de data gelezen van 
de file INPUT en nu wil mert PROG de data van de file 
PIET laten lezen. 

De PROGRAM-kaart ziet er bijv. als volgt uit: 


PROGRAM PROG( INPUT ,OUTPUT „KLAAS ,...) 
Door de LGO-kaart: 
LGO „PIET , „JAN. 


wordt bij het laden de filenaam INPUT vervangen door 
PIET en de filenaam KLAAS door JAN. 


- 


datum 23 maart 1973 
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Voorbeeld 5.4 Absoluut programma 


Indien een groot programma vaak gedraaid wordt met ver- 
schillende data kan men om tijd te besparen een "afdruk" 
van het vertaalde programma met al zijn verbindingen 
(absoluut programma) op een permanent file bewaren. 

Deze file kan in volgende jobs gebruikt worden om het 


programma te executeren: 


a) creêren van een absoluut programma op een permanent 
file: 


Jobkaart 

FIN. 

REQUEST ‚JAN „#PF. 

LOAD ,LGO. N 
NOGO ‚JAN. 
CATALOG ‚JAN „UTRECHT ,ID=ACCU ,CY=1. 
7 k 


8 
9 


programma 


6 
7 
8 
9 


b) executie van dat absoluyt gemaakte programma: 


Jobkaart 
ATTACH , PIET „UTRECHT , ID=ACCU,CY=4, 


EIET., 


7 
8 
9 


data 


6 
7 
8 
9 


- 


Door de kaart PIET. wordt het programma in executie gebracht. 








